home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / pc / os2 / htmlchk / mac / hcuinit.mac < prev    next >
Encoding:
Text File  |  1996-02-21  |  1.4 KB  |  25 lines
  1. /*---------------------------------------------------------------------------*/
  2. /*                                                                           */
  3. /*  hcnInit - This REXX Macro is called when the report is first called      */
  4. /*           This is where you can set up your  Header and such              */
  5. /*                                                                           */
  6. /*  Valid Variables are:                                                     */
  7. /*      hcReportName    hcReportDescription     hcServerURL                  */
  8. /*      hcServerRoot    hcDocumentRoot          hcTopHTML                    */
  9. /*                                                                           */
  10. /*                                                                           */
  11. /*---------------------------------------------------------------------------*/
  12.  
  13.   Call RxhcLineOut COPIES('-', 78)
  14.   title = 'Report -' hcReportDescription
  15.   extra = 58 - LENGTH(title)
  16.   Call RxhcLineOut title || COPIES(' ', extra) || Date() || ' ' || Time()
  17.   Call RxhcLineOut 'For Server [' || hcServerURL || ']'
  18.   Call RxhcLineOut 'This report started from [' || hcDocumentRoot || ']'
  19.   Call RxhcLineOut COPIES('-', 78)
  20.   Call RxhcLineOut 'This report will show files that are on the server BUT are '
  21.   Call RxhcLineOut 'NOT referenced by an HTML file'
  22.   Call RxhcLineOut COPIES('-', 78)
  23.  
  24. RETURN
  25.